home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / VCLZip / kpdemosd.exe / ZipUtil / Config.Pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-04-12  |  2.8 KB  |  118 lines
  1. unit Config;
  2.  
  3. { $Log: }
  4.  
  5.  
  6. interface
  7.  
  8. uses
  9. {$IFDEF WIN32}
  10.     Windows, ComCtrls,
  11. {$ELSE}
  12.   WinTypes, WinProcs,
  13. {$ENDIF}
  14.     SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  15.     Buttons, ExtCtrls, Tabnotbk, Dialogs;
  16.  
  17. type
  18.   TConfigDlg = class(TForm)
  19.     Options: TTabbedNotebook;
  20.     OnStartUnZipInfoChk: TCheckBox;
  21.     OnStartUnZipChk: TCheckBox;
  22.     OnBadCRCChk: TCheckBox;
  23.     OnBadPasswordChk: TCheckBox;
  24.     OnSkippingFileChk: TCheckBox;
  25.     Label5: TLabel;
  26.     DefaultViewer: TEdit;
  27.     ForceDefaultViewer: TCheckBox;
  28.     LowerCaseFiles: TCheckBox;
  29.     DirBtn: TBitBtn;
  30.     OKBtn: TButton;
  31.     CancelBtn: TButton;
  32.     GetViewerDlg: TOpenDialog;
  33.     ProcessMessagesChk: TCheckBox;
  34.     OnStartZipInfoChk: TCheckBox;
  35.     OnStartZipChk: TCheckBox;
  36.     OnEndZipChk: TCheckBox;
  37.     Label1: TLabel;
  38.     Label2: TLabel;
  39.     GroupBox1: TGroupBox;
  40.     Button1: TButton;
  41.     Button2: TButton;
  42.     Label3: TLabel;
  43.     Label4: TLabel;
  44.     sfx16: TEdit;
  45.     sfx16dirbtn: TBitBtn;
  46.     Label6: TLabel;
  47.     Label7: TLabel;
  48.     Label8: TLabel;
  49.     sfx32: TEdit;
  50.     sfx32dirbtn: TBitBtn;
  51.     procedure DirBtnClick(Sender: TObject);
  52.     procedure Button1Click(Sender: TObject);
  53.     procedure Button2Click(Sender: TObject);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  59.  
  60. var
  61.   ConfigDlg: TConfigDlg;
  62.  
  63. implementation
  64.  
  65. {$R *.DFM}
  66.  
  67. procedure TConfigDlg.DirBtnClick(Sender: TObject);
  68. begin
  69.   If TBitBtn(Sender).Name = 'DirBtn' then
  70.      GetViewerDlg.InitialDir := ExtractFilePath(DefaultViewer.Text)
  71.   Else If TBitBtn(Sender).Name = 'sfx16dirbtn' then
  72.      GetViewerDlg.InitialDir := ExtractFilePath(sfx16.Text)
  73.   Else If TBitBtn(Sender).Name = 'sfx32dirbtn' then
  74.      GetViewerDlg.InitialDir := ExtractFilePath(sfx32.Text);
  75.  
  76.   If GetViewerDlg.Execute then
  77.    begin
  78.      If TBitBtn(Sender).Name = 'DirBtn' then
  79.         DefaultViewer.Text := GetViewerDlg.Filename
  80.      Else If TBitBtn(Sender).Name = 'sfx16dirbtn' then
  81.         sfx16.Text := GetViewerDlg.Filename
  82.      Else If TBitBtn(Sender).Name = 'sfx32dirbtn' then
  83.         sfx32.Text := GetViewerDlg.Filename;
  84.    end;
  85. end;
  86.  
  87. procedure TConfigDlg.Button1Click(Sender: TObject);
  88. begin
  89.   OnStartUnZipInfoChk.Checked := True;
  90.   OnStartUnZipChk.Checked := True;
  91.   OnBadCRCChk.Checked := True;
  92.   OnBadPasswordChk.Checked := True;
  93.   OnSkippingFileChk.Checked := True;
  94.   OnStartZipInfoChk.Checked := True;
  95.   OnStartZipChk.Checked := True;
  96.   OnEndZipChk.Checked := True;
  97. end;
  98.  
  99. procedure TConfigDlg.Button2Click(Sender: TObject);
  100. begin
  101.   OnStartUnZipInfoChk.Checked := False;
  102.   OnStartUnZipChk.Checked := False;
  103.   OnBadCRCChk.Checked := False;
  104.   OnBadPasswordChk.Checked := False;
  105.   OnSkippingFileChk.Checked := False;
  106.   OnStartZipInfoChk.Checked := False;
  107.   OnStartZipChk.Checked := False;
  108.   OnEndZipChk.Checked := False;
  109. end;
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117. end.
  118.